define lenr
proc(l)
	n:=nullp(l);
	if n then return:=0 else return:=1+lenr(cdr(l)) fi
end;

a:=[1,2,3];
b:=lenr(a)
